home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / B-Business / (c)b5.d64 / cwise listing (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  44 lines
  1. 2 ON S+1 GOTO 200, 235
  2. 4 FOR R=7 TO Z STEP SP : PRINT# 4, CHR$( PEEK( BB + PEEK( C+R ))); : NEXT
  3. 5 RETURN
  4. 6 FOR R=7 TO Z STEP SP : PRINT# 4, CHR$( PEEK( C+R )) ; : NEXT : RETURN
  5. 10 A(Y)=A : N%( Y-1 )=A(Y) - A( Y-1 ) : IF H < N%( Y-1 ) THEN H=N%( Y-1 )
  6. 12 RETURN
  7. 15 S=0 : FOR Y=1 TO V-2
  8. 20 IF S GOTO 40
  9. 25 GET#8, A$ : S=ST : IF A$=CR$ THEN GOSUB 10 : NEXT Y : GOTO 40
  10. 30 IF A$ < SP$ GOTO 20
  11. 35 POKE A, ASC( A$ ) : A=A + 1 : GOTO 20
  12. 40 GOSUB 10 : CLOSE 8 : CLOSE 15 : V=Y - 1 : OPEN 4,4 : X=1 : SP=-1 :Z=0
  13. 45 IF F%=1 GOTO 55
  14. 50 F$=F$ + CHR$((( V+1 ) * 9 ) AND 255 ) + CHR$( INT(( V+1 ) * 9 / 256 ))
  15. 55 PRINT# 4, F$; : FOR Y=V TO Z STEP SP : C=32
  16. 60 IF N%(Y) >= X THEN C=FNA( PEEK( A(Y) +X-1 )) : IF C=160 THEN C=32
  17. 70 IF C=32 THEN FOR W=1 TO 9 : PRINT# 4, BP$; : NEXT W : NEXT Y : GOTO90
  18. 75 C=C * 8 + B : ON F% GOSUB 4, 6 : PRINT# 4, BP$; : NEXT Y
  19. 90 PRINT#4 : X=X+1 : IF X<=H GOTO 55
  20. 95 PRINT#4, CL$ : CLOSE 4 : GOTO 285
  21. 200 PRINT CHR$( 147 ) CHR$( 14 ) : POKE 56, 19 : POKE 55, 255 : CLR
  22. 225 DEF FNA(C)=C+(C>63ANDC<96)*64+(C>192ANDC<219)*128+(C>96ANDC<123)*32
  23. 230 S=1 : LOAD "FONTFILE",8,1
  24. 235 CR$=CHR$( 13 ) : SP$=" " : BP$=CHR$( 0 ) : CL$=CHR$( 27 ) + "2"
  25. 237 DIM A(54), N%(54)
  26. 240 F%=1 : INPUT " 1. [195]OMMODORE OR 2. [197]PSON PRINTER"; F% : IF F%=2 GOTO 285
  27. 245 CR$=CHR$( 13 ) : F$=CHR$( 8 ) : SP$=" " : CL$=CHR$( 15 ) : BP$=CHR$( 128 )
  28. 285 X$="" : PRINT : INPUT" WHICH FILE"; X$ : IF X$="" THEN END
  29. 295 IF F%=2 THEN F$=CHR$( 27 ) + "A" + CHR$( 8 ) + CHR$( 27 ) + "K"
  30. 300 V=54 : H=0 : A=7424 : A(0)=A : BB=7168 : B=5120
  31. 305 OPEN 15, 8, 15 : OPEN 8, 8, 8, X$+",S,R" : INPUT#15,E,E$,ET,ES
  32. 310 IF E<20 THEN PRINT"READING FILE "X$ : GOTO 15
  33. 315 PRINT"TROUBLE OPENING FILE "X$":"
  34. 320 PRINT"ERROR #"E;E$" TRACK"ET"SECTOR"ES":CLOSE8:CLOSE15
  35. 325 [137] 285
  36. 399 :
  37. 400 [143] CLOCKWISE: PRINTS SEQ TEXTFILES ROTATED 90 DEGREES ON COMMODORE
  38. 401 [143] OR EPSON DOT-MATRIX PRINTERS ... MAKES BANNER-LIKE SPREADSHEETS
  39. 402 :
  40. 405 [143] WRITTEN BY JOHN KROUT
  41. 21654 A~[154][143] COPYRIGHT 1987 BY JOHN KROUT
  42. 411 :
  43. 415 [143] MAY BE COPIED AND DISTRIBUTED FOR FREE BUT NOT SOLD OR MODIFIED
  44.